home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / rpc / xdr.ph < prev   
Encoding:
Text File  |  1991-08-12  |  3.9 KB  |  124 lines
  1. if (!defined &__XDR_HEADER__) {
  2.     eval 'sub __XDR_HEADER__ {1;}';
  3.     eval 'sub BYTES_PER_XDR_UNIT {(4);}';
  4.     eval 'sub RNDUP {
  5.         local($x) = @_;
  6.         eval "(((($x) +  &BYTES_PER_XDR_UNIT - 1) /  &BYTES_PER_XDR_UNIT) *  &BYTES_PER_XDR_UNIT)";
  7.     }';
  8.     eval 'sub XDR_GETLONG {
  9.         local($xdrs, $longp) = @_;
  10.         eval "(*($xdrs)-> &x_ops-> &x_getlong)($xdrs, $longp)";
  11.     }';
  12.     eval 'sub xdr_getlong {
  13.         local($xdrs, $longp) = @_;
  14.         eval "(*($xdrs)-> &x_ops-> &x_getlong)($xdrs, $longp)";
  15.     }';
  16.     eval 'sub XDR_PUTLONG {
  17.         local($xdrs, $longp) = @_;
  18.         eval "(*($xdrs)-> &x_ops-> &x_putlong)($xdrs, $longp)";
  19.     }';
  20.     eval 'sub xdr_putlong {
  21.         local($xdrs, $longp) = @_;
  22.         eval "(*($xdrs)-> &x_ops-> &x_putlong)($xdrs, $longp)";
  23.     }';
  24.     eval 'sub XDR_GETBYTES {
  25.         local($xdrs, $addr, $len) = @_;
  26.         eval "(*($xdrs)-> &x_ops-> &x_getbytes)($xdrs, $addr, $len)";
  27.     }';
  28.     eval 'sub xdr_getbytes {
  29.         local($xdrs, $addr, $len) = @_;
  30.         eval "(*($xdrs)-> &x_ops-> &x_getbytes)($xdrs, $addr, $len)";
  31.     }';
  32.     eval 'sub XDR_PUTBYTES {
  33.         local($xdrs, $addr, $len) = @_;
  34.         eval "(*($xdrs)-> &x_ops-> &x_putbytes)($xdrs, $addr, $len)";
  35.     }';
  36.     eval 'sub xdr_putbytes {
  37.         local($xdrs, $addr, $len) = @_;
  38.         eval "(*($xdrs)-> &x_ops-> &x_putbytes)($xdrs, $addr, $len)";
  39.     }';
  40.     eval 'sub XDR_GETPOS {
  41.         local($xdrs) = @_;
  42.         eval "(*($xdrs)-> &x_ops-> &x_getpostn)($xdrs)";
  43.     }';
  44.     eval 'sub xdr_getpos {
  45.         local($xdrs) = @_;
  46.         eval "(*($xdrs)-> &x_ops-> &x_getpostn)($xdrs)";
  47.     }';
  48.     eval 'sub XDR_SETPOS {
  49.         local($xdrs, $pos) = @_;
  50.         eval "(*($xdrs)-> &x_ops-> &x_setpostn)($xdrs, $pos)";
  51.     }';
  52.     eval 'sub xdr_setpos {
  53.         local($xdrs, $pos) = @_;
  54.         eval "(*($xdrs)-> &x_ops-> &x_setpostn)($xdrs, $pos)";
  55.     }';
  56.     eval 'sub XDR_INLINE {
  57.         local($xdrs, $len) = @_;
  58.         eval "(*($xdrs)-> &x_ops-> &x_inline)($xdrs, $len)";
  59.     }';
  60.     eval 'sub xdr_inline {
  61.         local($xdrs, $len) = @_;
  62.         eval "(*($xdrs)-> &x_ops-> &x_inline)($xdrs, $len)";
  63.     }';
  64.     eval 'sub XDR_DESTROY {
  65.         local($xdrs) = @_;
  66.         eval " &if (($xdrs)-> &x_ops-> &x_destroy) (*($xdrs)-> &x_ops-> &x_destroy)($xdrs)";
  67.     }';
  68.     eval 'sub xdr_destroy {
  69.         local($xdrs) = @_;
  70.         eval " &if (($xdrs)-> &x_ops-> &x_destroy) (*($xdrs)-> &x_ops-> &x_destroy)($xdrs)";
  71.     }';
  72.     eval 'sub NULL_xdrproc_t {(( &xdrproc_t)0);}';
  73.     eval 'sub IXDR_GET_LONG {
  74.         local($buf) = @_;
  75.         eval "((\'long\') &ntohl(( &u_long)*($buf)++))";
  76.     }';
  77.     eval 'sub IXDR_PUT_LONG {
  78.         local($buf, $v) = @_;
  79.         eval "(*($buf)++ = (\'long\') &htonl(( &u_long)$v))";
  80.     }';
  81.     eval 'sub IXDR_GET_BOOL {
  82.         local($buf) = @_;
  83.         eval "(( &bool_t) &IXDR_GET_LONG($buf))";
  84.     }';
  85.     eval 'sub IXDR_GET_ENUM {
  86.         local($buf, $t) = @_;
  87.         eval "(($t) &IXDR_GET_LONG($buf))";
  88.     }';
  89.     eval 'sub IXDR_GET_U_LONG {
  90.         local($buf) = @_;
  91.         eval "(( &u_long) &IXDR_GET_LONG($buf))";
  92.     }';
  93.     eval 'sub IXDR_GET_SHORT {
  94.         local($buf) = @_;
  95.         eval "((\'short\') &IXDR_GET_LONG($buf))";
  96.     }';
  97.     eval 'sub IXDR_GET_U_SHORT {
  98.         local($buf) = @_;
  99.         eval "(( &u_short) &IXDR_GET_LONG($buf))";
  100.     }';
  101.     eval 'sub IXDR_PUT_BOOL {
  102.         local($buf, $v) = @_;
  103.         eval " &IXDR_PUT_LONG(($buf), ((\'long\')($v)))";
  104.     }';
  105.     eval 'sub IXDR_PUT_ENUM {
  106.         local($buf, $v) = @_;
  107.         eval " &IXDR_PUT_LONG(($buf), ((\'long\')($v)))";
  108.     }';
  109.     eval 'sub IXDR_PUT_U_LONG {
  110.         local($buf, $v) = @_;
  111.         eval " &IXDR_PUT_LONG(($buf), ((\'long\')($v)))";
  112.     }';
  113.     eval 'sub IXDR_PUT_SHORT {
  114.         local($buf, $v) = @_;
  115.         eval " &IXDR_PUT_LONG(($buf), ((\'long\')($v)))";
  116.     }';
  117.     eval 'sub IXDR_PUT_U_SHORT {
  118.         local($buf, $v) = @_;
  119.         eval " &IXDR_PUT_LONG(($buf), ((\'long\')($v)))";
  120.     }';
  121.     eval 'sub MAX_NETOBJ_SZ {1024;}';
  122. }
  123. 1;
  124.